home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / fprotems.zip / PROPOPS.TEM < prev    next >
Text File  |  1993-01-04  |  2KB  |  51 lines
  1. <<title Foxpro popup menus>>
  2. <<* author: Ellen Sander>>
  3. <<uicode>>
  4. * Last modified 12/19/89
  5. * +==================================================================+
  6. * This Template codes FoxPro popup menus                             +
  7. * in a procedure named POPDEFS.                                      +
  8. * Ignores any non-menu boxes or other text on screen                 +
  9. * +==================================================================+
  10.  
  11. * program header
  12. ? '* +==================================================================+'
  13. ? '* POPUP DEFINITIONS FOR  {stripdir(file)}  from {stripdir(wwfile)}   +'
  14. ? '*  {template}  {date} {time}"                                        +'
  15. ? '* +==================================================================+'
  16. ?
  17. load_lib("propops") ** Popup menu function library used by this template
  18. write_testpops()    ** Creates a runnable command file for testing
  19.                     ** You can comment this function out
  20. ?
  21.  
  22. ? "**********************"
  23. ? "PROCEDURE POPDEFS"  **"
  24. ? "**********************"
  25. ?
  26.  
  27. open_screen()                   ** Begin user query.
  28. say(4,10 , 'Which color scheme should I use for these popups?')
  29. say(5,10 , '(PRESS 2 for DEFAULT color scheme.)')
  30. n = get_num(4,60,0,2,2)  
  31. close_screen()                  ** end user query
  32. * With all the action tucked into the .tlb, this is the whole shooting match:
  33. declare_all_popboxes(box,n)
  34. ? "RETURN"
  35.  
  36. **************************
  37. function write_testpops **
  38. **************************
  39. * Code for testing popup menus from the command prompt.
  40. * If commented out, the template only writes the popup code.
  41.  
  42. ? "DO POPDEFS"
  43. for all boxes where is_menu(box)
  44. ? "ACTIVATE POPUP {box.name}"
  45. endfor
  46. ? "RETURN"
  47. return
  48.  
  49. <<enduicode>>
  50.  
  51.